home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD001b.dsk / LISTING.HELLO.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  73 lines
  1. 5  CLEAR 
  2. 10  SPEED= 255: TEXT : HOME : DIM A$(100):D$ =  CHR$(4): PRINT D$;"NOMON C,I,O": HOME 
  3. 20  PRINT "----------------------------------------";: PRINT "    BACK-SIDE OF SOFTDISK MAGAZETTE     ";: PRINT "----------------------------------------"
  4. 30 C$ = "                  ":B$ = "                    "
  5. 40  FOR I = 100 TO 1  STEP  -1:A$(I) = B$ +C$: NEXT 
  6. 50 QQ =  PEEK(977) -185: IF QQ >0  THEN A$(0) = C$ +" "
  7. 60  IF QQ < = 0  THEN A$(0) = C$ +" "
  8. 70  FOR I = 768 TO 788: READ PP: POKE I,PP: NEXT I:I = 0
  9. 80 ZZ = 3037:I = 0:R = 0:QQ =  PEEK(977) -185: IF QQ >0  THEN ZZ = 3220
  10. 90 Q =  PEEK(977) + PEEK(978) *256 +ZZ:Z =  PEEK(107) + PEEK(108) *256 +8
  11. 100  POKE (209), PEEK(Z): POKE (210), PEEK(Z +1): POKE Q,0: POKE Q +1,3: POKE Q +2,18: POKE Q +3,3: POKE 34,3
  12. 110  VTAB 24: PRINT D$;"CATALOG": PRINT D$;"PR#0": PRINT D$;"IN#0": HOME : POKE 33,20: POKE 34,3: HOME :
  13. 130 J = 1: IF QQ < = 0  THEN A$(0) = B$ +"  
  14. 140  IF  MID$ (A$(J),7,15) = "               "  THEN 1110
  15. 150  IF J = 19  OR J = 54  THEN  GOSUB 330
  16. 160  IF J = 37  THEN  GOSUB 340: IF Z$ = "Y"  THEN 190
  17. 170 T = 1: IF J <10  THEN T = 2
  18. 180  HTAB T: PRINT J; TAB( 3); MID$ (A$(J),7,16):J = J +1: GOTO 140
  19. 190  POKE 32,0: POKE 34,22: POKE 33,40: HOME 
  20. 200  INPUT "<R>UN,<L>OAD,<U>NLOCK,LOC<K>,<D>ELETE - <B>YPASSING LOCK: CODE, # <RETURN>  ";X$
  21. 210 X =  VAL( MID$ (X$,2,4)):Y$ =  MID$ (A$(X),2,2)
  22. 220  IF X >J -1  THEN 190
  23. 230  IF  LEFT$(X$,1) = "L"  THEN  GOSUB 400: GOTO 280
  24. 235  IF  LEFT$(X$,1) = "X"  THEN  GOTO 1130
  25. 240  IF  LEFT$(X$,1) = "R"  THEN  GOSUB 480: GOTO 280
  26. 242  IF  LEFT$(X$,1) = "U"  THEN  GOSUB 1000: GOTO 280
  27. 244  IF  LEFT$(X$,1) = "K"  THEN  GOSUB 1010: GOTO 280
  28. 246  IF  LEFT$(X$,1) = "D"  THEN  GOSUB 1030: GOTO 280
  29. 248  IF  LEFT$(X$,1) = "B"  THEN  GOSUB 1020: GOTO 280
  30. 250  IF  LEFT$(X$,1) = "0"  THEN 270
  31. 260  GOTO 190
  32. 270  TEXT : HOME : PRINT D$;"CATALOG": END 
  33. 280  IF  MID$ (X$,2,1) = "0"  THEN 270
  34. 290  IF  VAL( MID$ (X$,2,1)) = 0  THEN 190
  35. 300  TEXT : HOME 
  36. 310  PRINT D$;F$; MID$ (A$(X),7,31);",V0"
  37. 320  IF F$ = "DELETE" GOTO 1100
  38. 322  IF F$ = "UNLOCK" GOTO 1100
  39. 324  IF F$ = "LOCK" GOTO 1100
  40. 329  END 
  41. 330  POKE 33,19: POKE 32,20: HOME : RETURN 
  42. 340  POKE 32,0: POKE 34,22: POKE 33,40: HOME 
  43. 350  CALL  -384: PRINT "   DO YOU WANT TO LOAD OR RUN ANY OF       THESE PROGRAMS? (THERE ARE MORE.)   ";: CALL  -380
  44. 360  GET Z$
  45. 370  IF Z$ = "Y"  THEN  RETURN 
  46. 380  IF Z$ < >"N"  THEN 360
  47. 390  POKE 32,0: POKE 34,3: POKE 33,19: HOME : RETURN 
  48. 400  IF  ASC(Y$) = 201  OR  ASC(Y$) = 193  THEN 440
  49. 410  IF  ASC(Y$) = 194  THEN 450
  50. 420  IF  ASC(Y$) = 212  THEN 460
  51. 430  GOTO 470
  52. 440 F$ = "LOAD": RETURN 
  53. 450 F$ = "BLOAD": RETURN 
  54. 460 F$ = "EXEC": RETURN 
  55. 470  RETURN 
  56. 480  IF  ASC(Y$) = 201  OR  ASC(Y$) = 193  THEN 520
  57. 490  IF  ASC(Y$) = 194  THEN 530
  58. 500  IF  ASC(Y$) = 212  THEN 540
  59. 510  PRINT "AT LINE 625",Y$
  60. 520 F$ = "RUN": RETURN 
  61. 530 F$ = "BRUN": RETURN 
  62. 540 F$ = "EXEC": RETURN 
  63. 550  RETURN 
  64. 560  DATA  56,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96
  65. 570  REM  <CTRL-J>LINE #20 = DISK TITLE<CTRL-J>
  66. 1000 F$ = "UNLOCK": RETURN 
  67. 1010 F$ = "LOCK": RETURN 
  68. 1020  PRINT D$;"UNLOCK"; MID$ (A$(X),7,31);",V0"
  69. 1030 F$ = "DELETE": RETURN 
  70. 1100  GOTO 5: END 
  71. 1110  HTAB T: PRINT "X"; TAB( 3);" READ NEXT DISK": GOTO 190
  72. 1130  TEXT : HOME : VTAB 10: HTAB 10: PRINT "INSERT NEXT DISK": VTAB 12: HTAB 10: INPUT "AND HIT RETURN  ";R$: PRINT D$;"RUN HELLO": END 
  73. 1150  REM   ANY QUESTIONS ON OPERATION - CALL ME AT 213-342-1990 - ROBERT MOSKOWITZ